home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / lang / PPCsmalltalk.lha / PPCSmallTalk / prelude / random.st < prev    next >
Text File  |  1986-10-19  |  494b  |  27 lines
  1. Class Random
  2. | seed |
  3. [
  4.         new
  5.                 seed <- 1
  6. |
  7.     randomize
  8.         seed <- <primitive 161>
  9. |
  10.         first
  11.                 ^ <primitive 32 (seed <- <primitive 35 seed > ) >
  12. |
  13.         next
  14.                 ^ <primitive 32 (seed <- <primitive 35 seed > ) >
  15. |
  16.     between: low and: high
  17.         ^ (self next * (high - low)) + low
  18. |
  19.     randInteger: limit
  20.         ^ (self next * limit) truncated + 1
  21. |
  22.     next: n            | newa |
  23.         newa <- Array new: n.
  24.         (1 to: n) do: [:x | newa at: x put: self next].
  25.         ^ newa
  26. ]
  27.